home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Games / Xconq 7.1.0 / lib / duel.g < prev    next >
Encoding:
Text File  |  1996-04-04  |  710 b   |  56 lines  |  [TEXT/XCNQ]
  1. (game-module "duel"
  2.   (title "The Duel")
  3.   (blurb "Tanks, one-on-one.")
  4.   (base-module "tank")
  5.   (variants
  6.    (see-all true)
  7.    ("More Tanks" (true (add u* start-with 1)))
  8.    ) 
  9. )
  10.  
  11. (set use-side-priority 1)
  12.  
  13. (area 20 20)
  14.  
  15. (area (terrain (by-name "+" plains)
  16.   "20+"
  17.   "20+"
  18.   "20+"
  19.   "20+"
  20.   "20+"
  21.   "20+"
  22.   "20+"
  23.   "20+"
  24.   "20+"
  25.   "20+"
  26.   "20+"
  27.   "20+"
  28.   "20+"
  29.   "20+"
  30.   "20+"
  31.   "20+"
  32.   "20+"
  33.   "20+"
  34.   "20+"
  35.   "20+"
  36. ))
  37.  
  38. ;; Limit to two players only.
  39.  
  40. (set sides-min 2)
  41. (set sides-max 2)
  42.  
  43. ;; Two sides, no special properties needed (?).
  44.  
  45. (side 1)
  46.  
  47. (side 2)
  48.  
  49. ;; Two tanks, one for each side, at predetermined locations.
  50.  
  51. (tank 10  7 1)
  52.  
  53. (tank 10 13 2)
  54.  
  55. (scorekeeper #|(when after-event)|# (do last-side-wins))
  56.